home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbcolor.arc / COLOR.SEL next >
Encoding:
Text File  |  1985-09-30  |  3.1 KB  |  81 lines
  1. * COLOR.SEL
  2. * Paul G. Ferrara [70075,252] - Last Change: 09-30-85 04:57
  3. IF FILE("COLOR.MEM")
  4.    RESTORE FROM color ADDITIVE
  5. ELSE
  6.    STORE "W  " TO mnorf, menhb
  7.    STORE "   " TO mnorb, menhf, mbord
  8.    STORE "W+ " TO mtitl, mblnk, mmess
  9. ENDIF
  10. STORE "B  ,G  ,BG ,R  ,BR ,GR ,W  ,B+ ,G+ ,BG+,R+ ,BR+,GR+,W+ ,   " TO valid
  11. STORE 1 TO choice
  12. DO WHILE .NOT. choice=0
  13.    SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
  14.    CLEAR
  15.    @  1, 0 SAY "SELECT COLOR ATTRIBUTES"
  16.    @  1,72 SAY date()
  17.    @  2, 0 SAY "═══════════════════════════════════════════════════════"
  18.    @  2,55 SAY "═════════════════════════"
  19.    @ 23, 0 SAY "═══════════════════════════════════════════════════════"
  20.    @ 23,55 SAY "═════════════════════════"
  21.    @ 24, 6 SAY "1=mono defaults  2=color defaults  3=save selections  4=test  0=exit"
  22.    @  4,31 SAY "Current Attributes"
  23.    SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  24.    @ 21, 0 SAY "─────────────────────────────────Valid Colors───────────────────────────────────"
  25.    @ 22, 9 SAY "B  G  BG  R  BR  GR  W  [EMPTY]  B+  G+  BG+  R+  BR+  GR+  W+"
  26.    @  6,19 SAY "This is the color of the foreground text."
  27.    SET COLOR TO &menhf./&menhb.,&mnorf./&mnorb.,&mbord
  28.    @  7,20 SAY "This is the color of the enhanced text."
  29.    SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
  30.    @  8,18 SAY "This is the color of the title and prompts."
  31.    SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  32.    @  9,18 SAY "This is the color of the blinking messages."
  33.    SET COLOR TO &mmess./&mnorb.,&menhf./&menhb.,&mbord
  34.    @ 10,19 SAY "This is the color of the normal messages."
  35.    SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  36.    @ 12,13 SAY "Normal foreground"
  37.    @ 12,43 SAY "Border"
  38.    @ 13,13 SAY "Normal background"
  39.    @ 13,43 SAY "Titles/Prompts"
  40.    @ 14,13 SAY "Enhanced foreground"
  41.    @ 14,43 SAY "Blinking Message"
  42.    @ 15,13 SAY "Enhanced background"
  43.    @ 15,43 SAY "Normal Message"
  44.    @ 17,31 SAY "Select option"
  45.    @ 12,34 GET mnorf PICTURE "!!!"
  46.    @ 13,34 GET mnorb PICTURE "!!!"
  47.    @ 14,34 GET menhf PICTURE "!!!"
  48.    @ 15,34 GET menhb PICTURE "!!!"
  49.    @ 12,61 GET mbord PICTURE "!!!"
  50.    @ 13,61 GET mtitl PICTURE "!!!"
  51.    @ 14,61 GET mblnk PICTURE "!!!"
  52.    @ 15,61 GET mmess PICTURE "!!!"
  53.    @ 17,46 GET choice PICTURE "9" RANGE 0,4
  54.    READ
  55.    CLEAR GETS
  56.    * test for valid entries
  57.    IF .NOT. mnorf$valid .OR. .NOT. menhb$valid .OR. .NOT. mnorb$valid .OR. .NOT. menhf$valid ;
  58.       .OR. .NOT. mbord$valid .OR. .NOT. mtitl$valid .OR. .NOT. mblnk$valid .OR. .NOT. mmess$valid
  59.       STORE 1 TO choice
  60.    ENDIF
  61.    DO CASE
  62.       CASE choice=1
  63.          STORE "W  " TO mnorf, menhb
  64.          STORE "   " TO mnorb, menhf, mbord
  65.          STORE "W+ " TO mtitl, mblnk, mmess
  66.       CASE choice=2
  67.          STORE "GR " TO mnorf
  68.          STORE "B  " TO mnorb
  69.          STORE "W  " TO menhf
  70.          STORE "R  " TO menhb
  71.          STORE "B  " TO mbord
  72.          STORE "W+ " TO mtitl
  73.          STORE "R+ " TO mblnk
  74.          STORE "R+ " TO mmess
  75.       CASE choice=3
  76.          SAVE TO color ALL EXCEPT choice
  77.    ENDCASE
  78. ENDDO
  79. CLEAR
  80. RETURN
  81.